5 REM CLEAR SCREEN & TO LOWER CASE
10 :PRINTCHR$(147);CHR$(14);
15 REM TITLE & CREDIT
20 :PRINT"";CHR$(18)" [195][207][204][207][213][210][160][195][207][205][194][201][206][193][212][201][207][206][211] [211][197][204][197][195][212][207][210] "
30 :PRINT"[195]HARLIE [208]ATERSON   [212]ORONTO   [195]ANADA "
40 :PRINT"[212][208][213][199][160]#22801983 08 08
45 [143] INSTRUCTIONS
50 :[153]"(null)RY YOUR SELECTIONS FROM THE 4096"
60 :[153]"  SCREEN  COLOUR  COMBINATIONS  OF THE"
70 :[153]"  LEN64. ATN(null)(null)(null)ATNLEN(null)RIGHT$(null)VAL -- TO -- (null)VAL(null)(null)(null)(null)RIGHT$(null)VAL."
80 :[153]"  LENHOOSE YOUR PREFERENCES FOR BORDERS,"
90 [153]"  BACKGROUNDS, AND CHARACTERS. (null)AKE A     PEEK(null)ATNLEN(null)LEFT$(null)(null)VALCLOSEOR AN VAL(null)VALCLOSESTR$ATN(null)(null)(null)VAL(null).
100 PRINT"     [215]HEN A DISPLAY IS ATTRACTIVE, YOU"
110 PRINT"  CAN STOP THE PRESET VIEWING TIME AND"
120 PRINT"  HOLD-UNTILL YOU CHOOSE TO CONTINUE."
130 PRINT"     [207][203]! [205][193][211][212][197][210][160][195][207][204][207][213][210][160][195][207]-[207][210][196][201][206][193][212][207][210]"
140 :PRINT"          "CHR$(18)CHR$(129)" [208][193][210][212][201][195][201][208][193][212][197][160]"CHR$(30)" [197][206][202][207][217] "CHR$(154)
145 REM INSTRUCTION DELAY
150 :FOR TM = 1 TO 15000:NEXT TM
155 REM CLEAR SCREEN & TO UPPER CASE
160 PRINT CHR$(147);CHR$(142)
165 REM COLOUR DATA
170 :DATA 144,5,28,159,156,30,31,158
180 :DATA 129,149,150,151,152,153,154,155
185 REM COLOUR DISPLAY ROUTINE (995)
190 :GOSUB 1000
195 REM COLOUR REQUESTS
200 :PRINT CHR$(18)" PLEASE TYPE A # FROM 0 TO 15 ONLY ";CHR$(146)
210 :INPUT"COLOUR NUMBER FOR BORDER";BO:PRINT""
220 :IF BO <0 OR BO >15 THEN 210
230 :INPUT"COLOUR NUMBER FOR BACKGROUND";BA:PRINT""
240 :IF BA < 0 OR BA > 15 THEN 230
250 :INPUT"COLOUR NUMBER FOR CHARACTERS";CH
260 :IF CH < O OR CH > 15 THEN 250
265 REM SET BORDER COLOUR
270 : POKE 53280, BO
275 REM SET BACKGROUND COLOUR
280 :  POKE 53281, BA
285 REM SET CHARACTER COLOUR
290 :FOR C = 0 TO 15
300 : READ CN
310 :IF C = CH THEN CC=CN
320 :NEXT C
330 : PRINT CHR$(CC)
335 REM DISPLAY COLOUR NUMBERS
340 :PRINTCHR$(147);"";"   COLOURS   "
350 :PRINTCHR$(18);"BORDER     =";PEEK(53280) AND 15"[157] "
360 :PRINT"";CHR$(18);"BACKGROUND =";PEEK(53281) AND 15"[157] "
370 :PRINT"";"CHARACTERS =";CH
375 REM HOLD PATERN ROUTINE (1295)
380 : GOSUB 1300
385 REM VIEW TIME FOR EACH COMBINATION
390 :  FOR X = 1 TO 500
395 REM HOLD PATERN SELECT
400 : GET A$:IF A$ <>" " THEN 420
405 REM RESTART ROUTINE (1395)
410 : GOSUB 1400
420 :NEXT X
430 :RESTORE
440 :CLR
450 :X = 0
455 REM REQUEST FOR ANOTHER COMBINATION
460 :PRINTCHR$(147);CHR$(154);:POKE 53280,14:POKE 53281,6:PRINT"";
470 :INPUT"  DO YOU WANT ANOTHER ONE Y/N";A$
480 : IF A$ <"N" OR A$ >"Y" THEN 470
490 : IF A$ >"N"AND A$ <"Y"THEN 470
500 : IF A$ ="N" THEN 520
510 : GOTO 160
515 REM BYE BYE ROUTINE
520 :PRINTCHR$(147);:POKE 53280,4:POKE 53281,3
525 REM REPEAT CHARACTER COLOUR CHANGE
530 :FOR R = 1 TO 6
540 :FOR C = 0 TO 15
545 REM MESSAGE POSITIONING
550 : FOR DN = 1 TO 10:PRINT"";: NEXT DN300
560 :  FOR RT = 1 TO 9:PRINT"";:NEXT RT
565 REM MESSAGE PRINT
570 :   READ L
580 :   PRINTCHR$(L);
590 :    PRINT " BYE BYE RAINBOW EYES "
595 REM MESSAGE VIEW DELAY
600 :   FOR T = 1 TO 90:NEXT T
610 : PRINT CHR$(19);
620 :NEXT C
630 :RESTORE:NEXT R
635 REM SCREEN TO STANDARD COLOUR & END
640 :PRINTCHR$(147);:POKE 53280,14:POKE 53281,6:PRINTCHR$(154):END
995 REM COLOUR DISPLAY
1000 :PRINT CHR$(19);:C = 0:S = 0
1010 : FOR R = 1 TO 2
1020 :  FOR B = 1 TO 8
1030 :   FOR T = 1 TO 5
1040 :    POKE 1064+S,160:POKE 55336+S,C
1050 :    S = S+1
1060 :   NEXT T
1070 :   C = C+1
1080 :  NEXT B
1090 :  S = S+80
1100 : NEXT R
1105 REM NUMBER COLOURS
1110 :PRINT CHR$(159);"";:N = 0
1120 : FOR R = 1 TO 2
1130 :  FOR B = 1 TO 8
1140 :   PRINT N"";:IF N >9 THEN PRINT"[157]";
1150 :   N = N+1
1160 :  NEXT B
1170 :  PRINT "";
1180 : NEXT R
1190 :RETURN
1295 REM HOLD INSTRUCTIONS
1300 DATA160,144,146,133,147,147
1310 DATA160,147,144,129,131,133
1320 DATA160,130,129,146,160,148,143
1330 DATA160,136,143,140,132,160
1340 :IC = BA+1:IF BA = 4 THEN IC = 0
1350 : FOR T = 0 TO 24
1360 :  READ L
1370 :  POKE 1904+T,L:POKE 56176+T,IC
1380 : NEXT T
1390 :RETURN
1395 REM RESTART INSTRUCTIONS
1400 :DATA160,148,143,160,146,149,142
1410 :DATA160,144,146,133,147,147
1420 :DATA160,147,144,129,131,133
1430 :DATA160,130,129,146,160
1440 : FOR T = 0 TO 23
1450 :  READ L
1460 :  POKE 1904+T,L:POKE 56176+T,IC
1470 : NEXT T
1475 REM RESTART COMMAND
1480 :GET A$:IF A$ <>" " THEN 1480
1490 :GOTO 430